Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Science/Astronomy/Sol'sNeighbors/background_2171.txt

Text File | 1989-01-09 | 9.9 KB | 435 lines

-- background: 2171 from stack: in
-- bmap block id: 24729
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on openStack
  hide message box
  show menuBar
  pass openStack
end openStack



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=228 top=298 right=321 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to prev card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=256 top=298 right=321 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=15 top=299 right=321 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GoHome
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 17 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=24 right=72 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: Name


-- part 18 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=75 top=75 right=92 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Alpha


-- part 19 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=75 top=95 right=112 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delta


-- part 20 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=75 top=115 right=132 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Parallax


-- part 21 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=76 top=135 right=152 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DistLy


-- part 22 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=75 top=155 right=172 bottom=140
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DistPs


-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=101 top=177 right=194 bottom=155
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SpectClass


-- part 24 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=101 top=198 right=215 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PropMotion


-- part 25 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=101 top=220 right=237 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: VisualMag


-- part 26 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=37 right=54 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Luminosity


-- part 27 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=57 right=74 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SurfTemp


-- part 28 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=77 right=94 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Radius


-- part 29 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=98 right=115 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mass


-- part 30 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=294 top=118 right=135 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Density


-- part 31 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=462 top=299 right=321 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 29019 / 29019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GoFirst
----- HyperTalk script -----
on mouseUp
  go first
end mouseUp



-- part 32 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=325 top=138 right=155 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ERadius


-- part 33 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=325 top=158 right=175 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: EPeriod


-- part 34 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=16 top=238 right=300 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Comments


-- part 36 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=314 top=301 right=320 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Plot Location
----- HyperTalk script -----
on mouseUp
  global b,d,ho,vo,seeCard
  put 1 into seeCard
  push card
  put 256 into ho  -- horizontal origin
  put 150 into vo  -- vertical origin
  put 45 into a  -- radius parsecs to pixels
  put 1/2 into b  -- y/x aspect ratio
  put 0.0174533 into c  -- degrees to radians
  put 400 into d  -- pixel distance from eye to origin
  put 4.90 * a into e  -- frame size
  put field DistPs * a into r
  put field Name into n
  put c * ((word 1 of field Alpha * 15) + (word 2 of field Alpha / 60)) into ph  --  azimuthal angle in radians
  put c * (value("0"&word 1 of field Delta) + (word 2 of field Delta / 60)) into th  --  equitorial angle in radians
  go to card PlotCard
  put n into card field Name
  put (r*sin(ph)*cos(th)) into x
  put (-r*cos(ph)*cos(th)) into y
  put (r*sin(th)) into z
  perspective 0,0,0,x,y,0,0,0
  perspective x,y,0,x,y,z,0,0
  perspective 0,0,0,x,y,z,1,1
  choose browse tool
end mouseUp

on perspective x1,y1,z1,x2,y2,z2,li,ci
  global b,d,ho,vo
  choose line tool
  set the pattern to 40  --  checkerboard
  set the centered to false  -- don't draw centered
  put (d/(d+y1)) into p1
  put round(ho+p1*x1) into h1
  put round(vo-p1*(b*y1+z1)) into v1
  put (d/(d+y2)) into p2
  put round(ho+p2*x2) into h2
  put round(vo-p2*(b*y2+z2)) into v2
  if li = 0 then
    drag from h1,v1 to h2,v2  --  solid line
  else
    drag from h1,v1 to h2,v2 with optionKey  --  dotted line
  end if
  if ci = 1 then  --  draw circle at end of line
    choose oval tool
    set the pattern to 12  --  black
    set the centered to true  -- draw centered
    drag from h2,v2 to h2 + 3,v2 + 3
  end if
end perspective




-- part 38 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=68 top=301 right=320 bottom=210
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Distance from 1 ...
----- HyperTalk script -----
on mouseUp
  global x1,y1,z1
  put 0.0174533 into c  -- degrees to radians
  get the short name of me
  if it = "Distance from 1 ..." then
    put field DistLY into r
    put c * ((word 1 of field Alpha * 15) + (word 2 of field Alpha / 60)) into ph  --  azimuthal angle in radians
    put c * (value("0"&word 1 of field Delta) + (word 2 of field Delta / 60)) into th  --  equitorial angle in radians
    put (r*cos(ph)*cos(th)) into x1
    put (r*sin(ph)*cos(th)) into y1
    put (r*sin(th)) into z1
    set the name of me to "... to 2 ="
  end if
  if it = "... to 2 =" then
    put field DistLY into r
    put c * ((word 1 of field Alpha * 15) + (word 2 of field Alpha / 60)) into ph  --  azimuthal angle in radians
    put c * (value("0"&word 1 of field Delta) + (word 2 of field Delta / 60)) into th  --  equitorial angle in radians
    put (r*cos(ph)*cos(th)) into x2
    put (r*sin(ph)*cos(th)) into y2
    put (r*sin(th)) into z2
    set the numberFormat to "0.0##"
    put sqrt((x1-x2)^2+(y1-y2)^2+(z1-z2)^2) into d
    put "Distance =" && d && "light-years =" && (.3065948*d) && "parsecs =" && (63240*d) && "A.U." into message box
    set the name of me to "Distance from 1 ..."
  end if
end mouseUp